1000 POKE56334,PEEK(56334)OR1:REM(null)
1010 POKE204,1:T=GT:M=GM:J=GJ:GOSUB2110:AT=X:REM(null)
1020 ZU=INT((40-LEN(N$))/2):IFHJ/4<>INT(HJ/4)ANDHM=1THENL(2)=28:REM
1030 IFHM>3AND(HJ+1)/4<>INT((HJ+1)/4)THENL(2)=28:REM(null)
1040 OPEN7,4,7:REM(null)
1050 PRINT#7,CHR$(14)"             [194]IORHYTHMUS VON":PRINT#7:PRINT#7:REM
1060 PRINT#7,CHR$(14)LEFT$("                                           ",ZU);:REM(null)
1070 PRINT#7,CHR$(18)N$
1080 PRINT#7:PRINT#7:REM(null)
1090 N$="GEBOREN AM "+T$+",D."+STR$(GT)+". "+M$(GM)+STR$(GJ):REM(null)
1100 ZU=INT((80-LEN(N$))/2):REM(null)
1110 PRINT#7,LEFT$("                                             ",ZU)N$:PRINT#7
1120 PRINT#7:N$="FUER DIE [218]EIT VOM 1. "+M$(HM)+STR$(HJ)
1130 ZU=INT((80-LEN(N$))/2)
1140 PRINT#7,LEFT$("                                         ",ZU)N$:PRINT#7
1150 N$="BIS ZUM"
1160 IFHM=1THENN$=N$+" 31. [196]EZEMBER"+STR$(HJ):GOTO1180
1170 N$=N$+STR$(L(HM-1))+". "+M$(HM-1)+STR$(HJ+1)
1180 ZU=INT((80-LEN(N$))/2)
1190 PRINT#7,LEFT$("                                                  ",ZU)N$
1200 PRINT#7:PRINT#7:PRINT#7:PRINT#7:PRINT#7:IFHM=1THEN1250
1210 FORA=1TOHM-1:FORB=1TO11
1220 M$(0)=M$(B):M$(B)=M$(B+1):M$(B+1)=M$(0)
1230 L(0)=L(B):L(B)=L(B+1):L(B+1)=L(0):M(0)=M(B):M(B)=M(B+1):M(B+1)=M(0)
1240 NEXTB,A:M(0)=0
1250 C=0:FORA=1TO12:IFA>1ANDM$(A)="[202]ANUAR"THENHJ=HJ+1:C=1
1260 M$(A)=M$(A)+STR$(HJ):ZU=INT((21-LEN(M$(A)))/2)
1270 M$(A)=RIGHT$("                "+M$(A),LEN(M$(A))+ZU)
1280 M$(A)=LEFT$(M$(A)+"                ",21):NEXT:IFC=1THENHJ=HJ-1
1290 FORA=1TO12STEP3
1300 T=1:M=M(A):J=HJ:IFM(A-1)>M(A)THENHJ=HJ+1:J=HJ
1310 GOSUB2110
1320 TA=X-AT:G1=TA-33*INT(TA/33):S1=TA-28*INT(TA/28):K1=TA-23*INT(TA/23)
1330 AL(A)=TA:T=1:M=M(A+1):J=HJ:IFM(A)>M(A+1)THENHJ=HJ+1:J=HJ
1340 GOSUB2110
1350 IFL(A+1)=28THENX=X+3
1360 IFL(A+1)=29THENX=X+2
1370 TA=X-AT:G2=TA-33*INT(TA/33):S2=TA-28*INT(TA/28):K2=TA-23*INT(TA/23)
1380 AL(A+1)=TA:T=1:M=M(A+2):J=HJ:IFM(A+1)>M(A+2)THENHJ=HJ+1:J=HJ
1390 GOSUB2110
1400 TA=X-AT:G3=TA-33*INT(TA/33):S3=TA-28*INT(TA/28):K3=TA-23*INT(TA/23)
1410 AL(A+2)=TA:PRINT#7,"   "M$(A)"     "M$(A+1)"     "M$(A+2):PRINT#7
1420 S1$=CHR$(45)+CHR$(45)+CHR$(45)+"[206][197][199]."+CHR$(45)+CHR$(45)+CHR$(45)
1430 S1$=S1$+CHR$(45)+CHR$(45)+CHR$(45)+CHR$(45)+"[208][207][211]."
1440 S1$=S1$+CHR$(45)+CHR$(45)+CHR$(45)
1450 PRINT#7,"   "S1$"      "S1$"      "S1$
1460 FORB=1TO31:B$=RIGHT$(STR$(B),2)
1470 S1$=".........."+CHR$(125)+"..........":S2$=S1$:S3$=S1$
1480 IFB>L(A)THEN1530
1490 G1=G1+1:S1=S1+1:K1=K1+1
1500 IFG1>33THENG1=1
1510 IFS1>28THENS1=1
1520 IFK1>23THENK1=1
1530 IFB>L(A+1)THEN1580
1540 G2=G2+1:S2=S2+1:K2=K2+1
1550 IFG2>33THENG2=1
1560 IFS2>28THENS2=1
1570 IFK2>23THENK2=1
1580 IFB>L(A+2)THEN1630
1590 G3=G3+1:S3=S3+1:K3=K3+1
1600 IFG3>33THENG3=1
1610 IFS3>28THENS3=1
1620 IFK3>23THENK3=1
1630 :
1640 IFB>L(A)THENPRINT#7,"                        ";:GOTO1690
1650 S1$=LEFT$(S1$,G(G1)-1)+"[199]"+MID$(S1$,G(G1)+1)
1660 S1$=LEFT$(S1$,S(S1)-1)+"[211]"+MID$(S1$,S(S1)+1)
1670 S1$=LEFT$(S1$,K(K1)-1)+"[203]"+MID$(S1$,K(K1)+1)
1680 PRINT#7,B$" "S1$;
1690 IFB>L(A+1)THENPRINT#7,"                           ";:GOTO1740
1700 S2$=LEFT$(S2$,G(G2)-1)+"[199]"+MID$(S2$,G(G2)+1)
1710 S2$=LEFT$(S2$,S(S2)-1)+"[211]"+MID$(S2$,S(S2)+1)
1720 S2$=LEFT$(S2$,K(K2)-1)+"[203]"+MID$(S2$,K(K2)+1)
1730 PRINT#7,"   "B$" "S2$;
1740 IFB>L(A+2)THENPRINT#7,"                           ";:GOTO1790
1750 S3$=LEFT$(S3$,G(G3)-1)+"[199]"+MID$(S3$,G(G3)+1)
1760 S3$=LEFT$(S3$,S(S3)-1)+"[211]"+MID$(S3$,S(S3)+1)
1770 S3$=LEFT$(S3$,K(K3)-1)+"[203]"+MID$(S3$,K(K3)+1)
1780 PRINT#7,"   "B$" "S3$
1790 NEXTB:PRINT#7:PRINT#7
1800 NEXTA:PRINT#7:PRINT#7:PRINT#7:PRINT#7
1810 PRINT#7,"[206]ACH DER [212]HEORIE DES [194]IORHYTHMUS GIBT ES 3 [218]YKLEN IN [201]HREM [204]EBEN";
1820 PRINT#7,", DIE MIT":PRINT#7,"DEM [212]AG DER [199]EBURT BEGINNEN:":PRINT#7
1830 PRINT#7,"                     [199] = GEISTIGER [218]USTAND,    [218]YKLUSDAUER 33 [212]AGE"
1840 PRINT#7,"                     [211] = SEELISCHER [218]USTAND,   [218]YKLUSDAUER 28 [212]AGE"
1850 PRINT#7,"                     [203] = KOERPERLICHER [218]USTAND,[218]YKLUSDAUER 23 [212]AGE"
1860 PRINT#7:PRINT#7,"[201]HR  ALLGEMEINES  [215]OHLBEFINDEN WIRD  ALLERDINGS NICHT NUR";
1870 PRINT#7," VOM [194]IORHYTHMUS":PRINT#7,"BEEINFLUSST, SONDERN ";
1880 PRINT#7," AUCH VON [203]RANKHEITEN, [211]TRESS UND [213]MWELTEINFLUESSEN.":PRINT#7
1890 PRINT#7,"[196]A  SICH  DIE [215]ISSENSCHAFT  BIS HEUTE NOCH NICHT DARUEBER ";
1900 PRINT#7," EINIG  IST, OB":PRINT#7,"UND IN WIE WEIT DER [194]IORHYTHMUS UNSER ";
1910 PRINT#7,"[204]EBEN BEEINFLUSST, SOLLTEN [211]IE NICHT":PRINT#7,"UNBEDINGT NACH DEN";
1920 PRINT#7," [203]URVEN LEBEN.":PRINT#7
1930 PRINT#7,"[211]OLLTEN [211]IE ALSO MAL EINEN  SCHLECHTEN [212]AG  ERWISCHEN UND DIE ";
1940 PRINT#7,"[203]URVEN  DES":PRINT#7,"[194]IORHYTHMUS IM  NEGATIVEN [194]EREICH SEIN,";
1950 PRINT#7," DANN  WISSEN  [211]IE  JEDENFALLS WER":PRINT#7,"[211]CHULD  AN  [201]HRER";
1960 PRINT#7," [214]ERFASSUNG IST."
1970 FORA=1TO16:READAV:IFAV=>AL(1)ANDAV<=AL(12)+L(12)THENA=16:GOTO1990
1980 NEXTA:GOTO2090
1990 FORA=1TO12:IFAV=>AL(A)ANDAV<=AL(A)+L(A)THENB=A:A=12:GOTO2010
2000 NEXTA:
2010 FORA=2TOB:IFM(A-1)>M(A)THENJ1=J1+1
2020 NEXTA:T=AV-AL(B):M=M(B):J=J1:GOSUB2110
2030 PRINT#7,"----------------------------------------";
2040 PRINT#7,"----------------------------------------"
2050 PRINT#7:PRINT#7:PRINT#7,"[201]CH HABE NOCH EINEN [199]RUND ZUM [198]EIERN FUER [211]IE :"
2060 PRINT#7
2070 PRINT#7,"[193]M "T$", DEM "RIGHT$(STR$(T),2)"."RIGHT$(STR$(M(B)),2)".";J1;
2080 PRINT#7,"WERDEN [211]IE"AV"[212]AGE ALT"
2090 CLOSE7
2100 PRINT"      NOCH EINMAL ? (J/N)"
2102 GETA$:IFA$<>"N"ANDA$<>"J"THEN2102
2104 IFA$="N"THENFORX=2150TO2250:POKEX,0:NEXT:SYS64738
2106 RUN
2110 REM     ALTER UND WOCHENTAG
2120 Z=0:IFM<2THENY=(M-1)*31:GOTO2160
2130 IFJ/4<>INT(J/4)THEN2150
2140 IFJ/100<>INT(J/100)THENZ=1
2150 Y=INT((306*M-324)/10)
2160 Z=Z+INT(J-1)*365+INT((J-1)/4)
2170 Z=Z-INT((J-1)/100)+INT((J-1)/400)
2180 X=Z+Y+T:W=(X-INT(X/7)*7)+1
2190 ONWGOTO2200,2210,2220,2230,2240,2250,2260
2200 T$="[211]ONNTAG":RETURN
2210 T$="[205]ONTAG":RETURN
2220 T$="[196]IENSTAG":RETURN
2230 T$="[205]ITTWOCH":RETURN
2240 T$="[196]ONNERSTAG":RETURN
2250 T$="[198]REITAG":RETURN
2260 T$="[211]AMSTAG":RETURN